<?xml version="1.0" encoding="utf-8" ?> 
<language xmlns="http://rsdn.ru/coloring" name="Pascal" options="(?in)">
	<!-- comments -->
	<pattern name="com">
		<entry>(?m://.*?$)</entry>
		<entry>(?s:\(\*.*?\*\))</entry>
		<entry>(?s:\{.*?})</entry>
	</pattern>
	<!-- literals -->
	<pattern name="str">
		<entry>'(''|[^'])*'</entry>
	</pattern>
	<!-- keywords -->
	<pattern name="kw" prefix="\b" postfix="\b">
		<entry>absolute</entry>
		<entry>abstract</entry>
		<entry>and</entry>
		<entry>array</entry>
		<entry>as</entry>
		<entry>asm</entry>
		<entry>begin</entry>
		<entry>case</entry>
		<entry>cdecl</entry>
		<entry>class</entry>
		<entry>const</entry>
		<entry>constructor</entry>
		<entry>default</entry>
		<entry>deprecated</entry>
		<entry>destructor</entry>
		<entry>dispid</entry>
		<entry>dispinterface</entry>
		<entry>div</entry>
		<entry>do</entry>
		<entry>downto</entry>
		<entry>dynamic</entry>
		<entry>else</entry>
		<entry>end</entry>
		<entry>except</entry>
		<entry>export</entry>
		<entry>exports</entry>
		<entry>external</entry>
		<entry>far</entry>
		<entry>file</entry>
		<entry>finalization</entry>
		<entry>finally</entry>
		<entry>for</entry>
		<entry>forward</entry>
		<entry>function</entry>
		<entry>goto</entry>
		<entry>if</entry>
		<entry>implementation</entry>
		<entry>implements</entry>
		<entry>in</entry>
		<entry>index</entry>
		<entry>inherited</entry>
		<entry>initialization</entry>
		<entry>inline</entry>
		<entry>interface</entry>
		<entry>is</entry>
		<entry>label</entry>
		<entry>library</entry>
		<entry>message</entry>
		<entry>mod</entry>
		<entry>near</entry>
		<entry>nil</entry>
		<entry>not</entry>
		<entry>object</entry>
		<entry>of</entry>
		<entry>or</entry>
		<entry>out</entry>
		<entry>overload</entry>
		<entry>override</entry>
		<entry>packed</entry>
		<entry>pascal</entry>
		<entry>platform</entry>
		<entry>procedure</entry>
		<entry>program</entry>
		<entry>property</entry>
		<entry>raise</entry>
		<entry>record</entry>
		<entry>repeat</entry>
		<entry>resourcestring</entry>
		<entry>set</entry>
		<entry>shl</entry>
		<entry>shr</entry>
		<entry>string</entry>
		<entry>then</entry>
		<entry>threadvar</entry>
		<entry>to</entry>
		<entry>try</entry>
		<entry>type</entry>
		<entry>unit</entry>
		<entry>until</entry>
		<entry>uses</entry>
		<entry>var</entry>
		<entry>while</entry>
		<entry>with</entry>
		<entry>xor</entry>
		<entry>private</entry>
		<entry>protected</entry>
		<entry>public</entry>
		<entry>published</entry>
		<entry>automated</entry>
		<entry>at</entry>
		<entry>on</entry>
		<entry>register</entry>
		<entry>reintroduce</entry>
		<entry>safecall</entry>
		<entry>stdcall</entry>
		<entry>varargs</entry>
		<entry>virtual</entry>
		<entry>local</entry>
		<entry>self</entry>
	</pattern>
</language>